home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Stata-Example.do < prev    next >
Encoding:
Text File  |  2000-10-30  |  6.2 KB  |  251 lines
  1. /*
  2.  * ==========================================================================
  3.  * Stata-Example.do
  4.  * 
  5.  * Distributed as an example of Alpha's Stta mode.
  6.  * 
  7.  * Stata mode is available in the Statistical Modes package at
  8.  * 
  9.  * <ftp://ftp.ucsd.edu/pub/alpha/>
  10.  * ==========================================================================
  11.  */
  12.  
  13. /* 
  14.  * ==========================================================================
  15.  *  Corporate Policies Analysis - Exploring 30 years of family benefits
  16.  * 
  17.  *  FILE: "cps-1-1.do"
  18.  *                                    created: 10/11/99 {10:39:52 pm} 
  19.  *                                last update: 06/13/00 {03:51:33 pm} 
  20.  *  Description: 
  21.  *  
  22.  *  Adjusting weights according to instructions in appendix Q This involves
  23.  *  eliminating some observations from the 1963 through 1975 data sets. 
  24.  *  The output file will indicate how many observations were dropped.
  25.  *  
  26.  *  This creates and adds value labels for the variable "region" for data
  27.  *  sets mar65 through mar98.
  28.  *  
  29.  *  At the end of this procedure, all of the cps marXX.dta files will be
  30.  *  deleted.  Best to have them backed up on a disk somewhere!
  31.  *  
  32.  *  Author: Craig Barton Upright
  33.  *  E-mail: <cupright@princeton.edu>
  34.  *    mail: Princeton University, Department of Sociology
  35.  *          Princeton, New Jersey 08544
  36.  *     www: <http://www.princeton.edu/~cupright>
  37.  *  
  38.  *  Copyright (c) 1998-2000 Craig Barton Upright
  39.  * 
  40.  *  All rights reserved.
  41.  * ==========================================================================
  42.  */
  43.  
  44.  
  45. *** Preliminaries
  46.  
  47. #delimit ;
  48.  
  49. clear           ;
  50. set more 1      ;
  51. set memory 100m ;
  52. set matsize 50  ;
  53.  
  54.  
  55. *** Defining Macros ;
  56.  
  57. * Excerpt from Appendix Q:
  58. * 
  59. * It is important to note that the CPS files produced by the Census Bureau
  60. * do not have decimal points in the data.  It is left to the documentation
  61. * to inform the user how many decimals are implied.  The user must make the
  62. * proper adjustment before using weights.  This is true for all the
  63. * weights.  ;
  64.  
  65. * creating a little macro to recode, label, trim ;
  66.  
  67. program define macro1 ;
  68.  
  69.     /*  recoding weights */
  70.     
  71.     keep if wgt > 0 ;
  72.     replace wgt = wgt * .01 ;
  73.     
  74.     /*  creating region variable */
  75.     
  76.     generate region = _state ;
  77.     
  78.     recode region
  79.     
  80.         01 = 01
  81.         02 = 01
  82.         03 = 02
  83.         04 = 02
  84.         05 = 02
  85.         06 = 03
  86.         07 = 03
  87.         08 = 03
  88.         09 = 03
  89.         10 = 04
  90.         11 = 05
  91.         12 = 05
  92.         13 = 05
  93.         14 = 05
  94.         15 = 06
  95.         16 = 06
  96.         17 = 07
  97.         18 = 07
  98.         19 = 08
  99.         20 = 09
  100.         21 = 09 ;
  101.     
  102.     label define cdcodes
  103.     
  104.         01 "01 New England           "
  105.         02 "02 Middle Atlantic       "
  106.         03 "03 East North Central    "
  107.         04 "04 West North Central    "
  108.         05 "05 South Atlantic        "
  109.         06 "06 East South Central    "
  110.         07 "07 West South Central    "
  111.         08 "08 Mountain              "
  112.         09 "09 Pacific               " ;
  113.     
  114.     label values region cdcodes ;
  115.     
  116.     label variable region "Census Bureau Division" ;
  117.     
  118.     /* selecting variables */
  119.     
  120.     keep  year wgt region _child18 sex occ ind2d ;
  121.     
  122.     end ;
  123.  
  124.     
  125. * a second macro that calls "macro1" ;
  126.  
  127. program define macro2 ;
  128.  
  129.     clear ;
  130.  
  131.     ! echo "recoding state 19`1'"       ;
  132.     ! uncompress ../data-temp/mar`1'*       ;
  133.  
  134.     use ../data-temp/mar`1'.dta             ;
  135.     generate year = 19`1'                   ;
  136.     macro1                                  ;
  137.     quietly compress                        ;
  138.     codebook                                ;
  139.     save ../data-temp/cps`1'-1-1.dta        ;
  140.     clear                                   ;
  141.  
  142.     ! compress ../data-temp/mar`1'.dta      ;
  143.     ! compress ../data-temp/cps`1'-1-1.dta  ;
  144.     
  145.     end                                     ;
  146.     
  147.  
  148. *** Recoding ;
  149.  
  150. ! echo "recoding state for cps 65 - 69"  ;
  151.  
  152. macro2 65  ;
  153. macro2 66  ;
  154. macro2 67  ;
  155. macro2 68  ;
  156. macro2 69  ;
  157.  
  158. ! echo "cps weights assigned" ;
  159.  
  160.  
  161. * transforming variables in sppa-1-1.dta  ;
  162.  
  163. use ../data/sppa-1-1.dta  ;
  164.  
  165.  
  166. *** Encoding missing values ;
  167.  
  168. ! echo "encoding sppa missing values ..."  ;
  169.  
  170. mvdecode _all, mv(-9) ;
  171. mvdecode _all, mv(-8) ;
  172. mvdecode _all, mv(-7) ;
  173. mvdecode _all, mv(-1) ;
  174.  
  175.  
  176. *** Adding value labels ;
  177.  
  178. ! echo "adding sppa value labels ..." ;
  179.  
  180. label   define  yearlab 
  181.  
  182.     0      " 0 1982                                 "    
  183.     1      " 1 1992                                 "
  184.     2      " 2 1997                                 " ;
  185.  
  186. label   define  gender          
  187.  
  188.     9      "-9 NOT ASCERTAINED                      "
  189.     8      "-8 DON'T KNOW                           "
  190.     7      "-7 REFUSED                              "
  191.     2      "-2 INAPPLICABLE, SAMPLE SCREEN          "
  192.     1      "-1 INAPPLICABLE, QUESTION SCREEN        "
  193.     1      " 1 MALE                                 "
  194.     2      " 2 FEMALE                               " ;
  195.  
  196. label   define  racelab  
  197.  
  198.     9      "-9 NOT ASCERTAINED                      "
  199.     8      "-8 DON'T KNOW                           "
  200.     7      "-7 REFUSED                              "
  201.     2      "-2 INAPPLICABLE, SAMPLE SCREEN          "
  202.     1      "-1 INAPPLICABLE, QUESTION SCREEN        "
  203.     1      " 1 WHITE, BUT NOT OF HISPANIC ORIGIN    "
  204.     2      " 2 BLACK, BUT NOT OF HISPANIC ORIGIN    "
  205.     3      " 3 OTHER                                " ;
  206.  
  207.  
  208.  
  209. label   values  sppayear yearlab  ;
  210. label   values  sex  gender   ;
  211. label   values  race     racelab  ;
  212.  
  213.  
  214. *** Quick regression ;
  215.  
  216. * model 1.1.1: linear regression of as04,
  217. * respondents took arts courses outside of school ;
  218.  
  219. xi: regress as04
  220.         i.sppayear i.race sex dadgrade i.cohort1b ;
  221.  
  222.  
  223. * model 1.1.2: logistic regression of as04dum
  224. * respondents took arts courses outside of school (dummy variable) ;
  225.  
  226. xi: logistic as04dum
  227.         i.sppayear i.race sex dadgrade i.cohort1b ;
  228.  
  229.  
  230. * model 1.1.3: linear regression of asfammus,
  231. * parents of respondents listened classical music ;
  232.  
  233. xi: regress asfammus
  234.         i.sppayear i.race sex dadgrade i.cohort1b ;
  235.  
  236.  
  237.  
  238. ! echo "cps-1-1.do complete"  ; 
  239.  
  240.  
  241. * at this point, we can assume that the procedure worked.
  242. * to save disk space, the original marXX.dta will be deleted.
  243. * (best to have them backed up on disk somewhere !!) ;
  244.  
  245. ! rm -f ../data-temp/mar*.dta  ;
  246.  
  247.  
  248. exit, STATA clear  ;
  249.  
  250. * .
  251.